home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Util / L / LaserWriter Pro EnergySW.sit / LaserWriter Pro EnergySW / LaserWriter Utility.rsrc / STR#_16100.txt < prev    next >
Encoding:
Text File  |  1993-04-19  |  569 b   |  36 lines
  1. serverdict begin 0 exitserver 
  2.  
  3.  
  4. /4pop { pop pop pop pop } bind def 
  5.  
  6.  
  7. (Sys/Start) status {4pop (Sys/Start) deletefile} if 
  8.  
  9.  
  10. (Sys/OldStart) status {4pop (Sys/OldStart) (Sys/Start) renamefile} if 
  11.  
  12.  
  13. (usr/truetypeinstall) status {4pop (usr/truetypeinstall) deletefile} if 
  14.  
  15.  
  16. /str 100 string def 
  17.  
  18.  
  19. (fonts/*) { /fn exch def /k false def /f fn (r) file def 
  20.  
  21.  
  22. f =string readline pop (%!PS-TrueTypeFont) anchorsearch 
  23.  
  24.  
  25. { pop pop /k true def } { pop } ifelse f closefile 
  26.  
  27.  
  28. k { fn deletefile } if } str filenameforall 
  29.  
  30.  
  31. userdict /sysStartPatched false put 
  32.  
  33.  
  34. %%[ Error: 
  35.  
  36.